home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•The Simulator•
/
Pharaoh v1.0 •••••
/
Pharaoh
/
Pharaoh.rsrc
/
CODE_11.txt
< prev
next >
Wrap
Text File
|
1988-04-23
|
19KB
|
337 lines
# near model CODE resource
# jump table entries: 848-848 (1 of them)
export_106:
00000000 4E56 FE36 link A6, -0x01CA
00000004 426D EBF0 clr.w [A5 - 0x1410]
00000008 426D EBEE clr.w [A5 - 0x1412]
0000000C 426D EBEC clr.w [A5 - 0x1414]
00000010 42A7 clr.l -[A7]
00000012 3F3C 0082 move.w -[A7], 0x82
00000016 486E FF56 pea.l [A6 - 0xAA]
0000001A 2F3C FFFF FFFF move.l -[A7], 0xFFFFFFFF
00000020 A97C syscall GetNewDialog
00000022 201F move.l D0, [A7]+
00000024 486E FF56 pea.l [A6 - 0xAA]
00000028 3F3C 0004 move.w -[A7], 0x4
0000002C 486E FF54 pea.l [A6 - 0xAC]
00000030 486D FFDE pea.l [A5 - 0x22]
00000034 486E FF44 pea.l [A6 - 0xBC]
00000038 A98D syscall GetDialogItem/GetDItem
0000003A 486E FF56 pea.l [A6 - 0xAA]
0000003E 3F3C 0005 move.w -[A7], 0x5
00000042 486E FF54 pea.l [A6 - 0xAC]
00000046 486D FFE2 pea.l [A5 - 0x1E]
0000004A 486E FF44 pea.l [A6 - 0xBC]
0000004E A98D syscall GetDialogItem/GetDItem
00000050 486E FF56 pea.l [A6 - 0xAA]
00000054 3F3C 0007 move.w -[A7], 0x7
00000058 486E FF54 pea.l [A6 - 0xAC]
0000005C 486D FFE6 pea.l [A5 - 0x1A]
00000060 486E FF44 pea.l [A6 - 0xBC]
00000064 A98D syscall GetDialogItem/GetDItem
label00000066:
00000066 487A 02A8 pea.l [PC + 0x2A8 /* 00000310, value 0x4E56FFFE */]
0000006A 486E FF54 pea.l [A6 - 0xAC]
0000006E A991 syscall ModalDialog
00000070 0C6E 0002 FF54 cmpi.w [A6 - 0xAC], 0x2
00000076 6700 028E beq +0x290 /* 00000306 */
0000007A 0C6E 0004 FF54 cmpi.w [A6 - 0xAC], 0x4
00000080 6710 beq +0x12 /* 00000092 */
00000082 0C6E 0005 FF54 cmpi.w [A6 - 0xAC], 0x5
00000088 6708 beq +0xA /* 00000092 */
0000008A 0C6E 0007 FF54 cmpi.w [A6 - 0xAC], 0x7
00000090 665E bne +0x60 /* 000000F0 */
label00000092:
00000092 2F2D FFDE move.l -[A7], [A5 - 0x22]
00000096 0C6E 0004 FF54 cmpi.w [A6 - 0xAC], 0x4
0000009C 6608 bne +0xA /* 000000A6 */
0000009E 3B7C 0001 EBEC move.w [A5 - 0x1414], 0x1
000000A4 6004 bra +0x6 /* 000000AA */
label000000A6:
000000A6 426D EBEC clr.w [A5 - 0x1414]
label000000AA:
000000AA 3F2D EBEC move.w -[A7], [A5 - 0x1414]
000000AE A963 syscall SetControlValue/SetCtlValue
000000B0 2F2D FFE2 move.l -[A7], [A5 - 0x1E]
000000B4 0C6E 0005 FF54 cmpi.w [A6 - 0xAC], 0x5
000000BA 6608 bne +0xA /* 000000C4 */
000000BC 3B7C 0001 EBEE move.w [A5 - 0x1412], 0x1
000000C2 6004 bra +0x6 /* 000000C8 */
label000000C4:
000000C4 426D EBEE clr.w [A5 - 0x1412]
label000000C8:
000000C8 3F2D EBEE move.w -[A7], [A5 - 0x1412]
000000CC A963 syscall SetControlValue/SetCtlValue
000000CE 2F2D FFE6 move.l -[A7], [A5 - 0x1A]
000000D2 0C6E 0007 FF54 cmpi.w [A6 - 0xAC], 0x7
000000D8 6608 bne +0xA /* 000000E2 */
000000DA 3B7C 0001 EBF0 move.w [A5 - 0x1410], 0x1
000000E0 6004 bra +0x6 /* 000000E6 */
label000000E2:
000000E2 426D EBF0 clr.w [A5 - 0x1410]
label000000E6:
000000E6 3F2D EBF0 move.w -[A7], [A5 - 0x1410]
000000EA A963 syscall SetControlValue/SetCtlValue
000000EC 6000 0214 bra +0x216 /* 00000302 */
label000000F0:
000000F0 0C6E 0001 FF54 cmpi.w [A6 - 0xAC], 0x1
000000F6 6600 020A bne +0x20C /* 00000302 */
000000FA 486D DA06 pea.l [A5 - 0x25FA]
000000FE 486D F1B6 pea.l [A5 - 0xE4A]
00000102 3F3C 080E move.w -[A7], 0x80E
00000106 A9EB syscall Pack4/FP68K
00000108 486D F1B6 pea.l [A5 - 0xE4A]
0000010C 486E FE36 pea.l [A6 - 0x1CA]
00000110 3F3C 0810 move.w -[A7], 0x810
00000114 A9EB syscall Pack4/FP68K
00000116 486E FF56 pea.l [A6 - 0xAA]
0000011A 3F3C 0006 move.w -[A7], 0x6
0000011E 486E FE42 pea.l [A6 - 0x1BE]
00000122 486E FE3E pea.l [A6 - 0x1C2]
00000126 486E FF44 pea.l [A6 - 0xBC]
0000012A A98D syscall GetDialogItem/GetDItem
0000012C 2F2E FE3E move.l -[A7], [A6 - 0x1C2]
00000130 486E FE44 pea.l [A6 - 0x1BC]
00000134 A990 syscall GetDialogItemText/GetIText
00000136 486E FE44 pea.l [A6 - 0x1BC]
0000013A 4EAD 02B2 jsr [A5 + 0x2B2 /* export_82 */]
0000013E 584F addq.w A7, 4
00000140 486E FE44 pea.l [A6 - 0x1BC]
00000144 4EAD 039A jsr [A5 + 0x39A /* export_111 */]
00000148 584F addq.w A7, 4
0000014A 4A40 tst.w D0
0000014C 660E bne +0x10 /* 0000015C */
0000014E 3F3C 044C move.w -[A7], 0x44C
00000152 4EAD 008A jsr [A5 + 0x8A /* export_13 */]
00000156 544F addq.w A7, 2
00000158 6000 01A8 bra +0x1AA /* 00000302 */
label0000015C:
0000015C 4A6D EBEC tst.w [A5 - 0x1414]
00000160 661A bne +0x1C /* 0000017C */
00000162 4A6D EBEE tst.w [A5 - 0x1412]
00000166 6614 bne +0x16 /* 0000017C */
00000168 4A6D EBF0 tst.w [A5 - 0x1410]
0000016C 660E bne +0x10 /* 0000017C */
0000016E 3F3C 044D move.w -[A7], 0x44D
00000172 4EAD 008A jsr [A5 + 0x8A /* export_13 */]
00000176 544F addq.w A7, 2
00000178 6000 0188 bra +0x18A /* 00000302 */
label0000017C:
0000017C 486E FE44 pea.l [A6 - 0x1BC]
00000180 4EAD 012A jsr [A5 + 0x12A /* export_33 */]
00000184 584F addq.w A7, 4
00000186 486D F990 pea.l [A5 - 0x670]
0000018A 486E FF4C pea.l [A6 - 0xB4]
0000018E 3F3C 0810 move.w -[A7], 0x810
00000192 A9EB syscall Pack4/FP68K
00000194 486E FF4C pea.l [A6 - 0xB4]
00000198 486D F9AE pea.l [A5 - 0x652]
0000019C 3F3C 080E move.w -[A7], 0x80E
000001A0 A9EB syscall Pack4/FP68K
000001A2 514F subq.w A7, 8
000001A4 486D F9AE pea.l [A5 - 0x652]
000001A8 486F 0004 pea.l [A7 + 0x4]
000001AC 3F3C 0810 move.w -[A7], 0x810
000001B0 A9EB syscall Pack4/FP68K
000001B2 514F subq.w A7, 8
000001B4 486E FF4C pea.l [A6 - 0xB4]
000001B8 486D F1B6 pea.l [A5 - 0xE4A]
000001BC 3F3C 080E move.w -[A7], 0x80E
000001C0 A9EB syscall Pack4/FP68K
000001C2 486D F1B6 pea.l [A5 - 0xE4A]
000001C6 486F 0004 pea.l [A7 + 0x4]
000001CA 3F3C 0810 move.w -[A7], 0x810
000001CE A9EB syscall Pack4/FP68K
000001D0 4EAD 00FA jsr [A5 + 0xFA /* export_27 */]
000001D4 504F addq.w A7, 8
000001D6 4857 pea.l [A7]
000001D8 486D F9AE pea.l [A5 - 0x652]
000001DC 3F3C 080E move.w -[A7], 0x80E
000001E0 A9EB syscall Pack4/FP68K
000001E2 504F addq.w A7, 8
000001E4 486D F990 pea.l [A5 - 0x670]
000001E8 486D F9AE pea.l [A5 - 0x652]
000001EC 3F3C 0002 move.w -[A7], 0x2
000001F0 A9EB syscall Pack4/FP68K
000001F2 6008 bra +0xA /* 000001FC */
000001F4 0000 0000 ori.b D0, 0x0
000001F8 0000 0000 ori.b D0, 0x0
label000001FC:
000001FC 487A FFF6 pea.l [PC - 0xA /* 000001F4, value 0x0, cstring "" */]
00000200 486D F9AE pea.l [A5 - 0x652]
00000204 3F3C 0808 move.w -[A7], 0x808
00000208 A9EB syscall Pack4/FP68K
0000020A 630E bls +0x10 /* 0000021A */
0000020C 3F3C 044E move.w -[A7], 0x44E
00000210 4EAD 008A jsr [A5 + 0x8A /* export_13 */]
00000214 544F addq.w A7, 2
00000216 6000 00EA bra +0xEC /* 00000302 */
label0000021A:
0000021A 4A6D EBEC tst.w [A5 - 0x1414]
0000021E 672C beq +0x2E /* 0000024C */
00000220 486E FE36 pea.l [A6 - 0x1CA]
00000224 486D F9AE pea.l [A5 - 0x652]
00000228 3F3C 080E move.w -[A7], 0x80E
0000022C A9EB syscall Pack4/FP68K
0000022E 486E FF4C pea.l [A6 - 0xB4]
00000232 486D F9AE pea.l [A5 - 0x652]
00000236 3F3C 0800 move.w -[A7], 0x800
0000023A A9EB syscall Pack4/FP68K
0000023C 486D F9AE pea.l [A5 - 0x652]
00000240 486E FE36 pea.l [A6 - 0x1CA]
00000244 3F3C 0810 move.w -[A7], 0x810
00000248 A9EB syscall Pack4/FP68K
0000024A 6054 bra +0x56 /* 000002A0 */
label0000024C:
0000024C 4A6D EBEE tst.w [A5 - 0x1412]
00000250 672C beq +0x2E /* 0000027E */
00000252 486E FE36 pea.l [A6 - 0x1CA]
00000256 486D F9AE pea.l [A5 - 0x652]
0000025A 3F3C 080E move.w -[A7], 0x80E
0000025E A9EB syscall Pack4/FP68K
00000260 486E FF4C pea.l [A6 - 0xB4]
00000264 486D F9AE pea.l [A5 - 0x652]
00000268 3F3C 0802 move.w -[A7], 0x802
0000026C A9EB syscall Pack4/FP68K
0000026E 486D F9AE pea.l [A5 - 0x652]
00000272 486E FE36 pea.l [A6 - 0x1CA]
00000276 3F3C 0810 move.w -[A7], 0x810
0000027A A9EB syscall Pack4/FP68K
0000027C 6022 bra +0x24 /* 000002A0 */
label0000027E:
0000027E 4A6D EBF0 tst.w [A5 - 0x1410]
00000282 671C beq +0x1E /* 000002A0 */
00000284 486E FF4C pea.l [A6 - 0xB4]
00000288 486D F1B6 pea.l [A5 - 0xE4A]
0000028C 3F3C 080E move.w -[A7], 0x80E
00000290 A9EB syscall Pack4/FP68K
00000292 486D F1B6 pea.l [A5 - 0xE4A]
00000296 486E FE36 pea.l [A6 - 0x1CA]
0000029A 3F3C 0810 move.w -[A7], 0x810
0000029E A9EB syscall Pack4/FP68K
label000002A0:
000002A0 486E FE36 pea.l [A6 - 0x1CA]
000002A4 486D F9AE pea.l [A5 - 0x652]
000002A8 3F3C 080E move.w -[A7], 0x80E
000002AC A9EB syscall Pack4/FP68K
000002AE 6008 bra +0xA /* 000002B8 */
000002B0 0000 0000 ori.b D0, 0x0
000002B4 0000 0000 ori.b D0, 0x0
label000002B8:
000002B8 487A FFF6 pea.l [PC - 0xA /* 000002B0, value 0x0, cstring "" */]
000002BC 486D F9AE pea.l [A5 - 0x652]
000002C0 3F3C 0808 move.w -[A7], 0x808
000002C4 A9EB syscall Pack4/FP68K
000002C6 6C1C bge +0x1E /* 000002E4 */
000002C8 3F3C 044F move.w -[A7], 0x44F
000002CC 4EAD 008A jsr [A5 + 0x8A /* export_13 */]
000002D0 544F addq.w A7, 2
000002D2 486E FF56 pea.l [A6 - 0xAA]
000002D6 3F3C 0006 move.w -[A7], 0x6
000002DA 4267 clr.w -[A7]
000002DC 3F3C 7FFF move.w -[A7], 0x7FFF
000002E0 A97E syscall SelectDialogItemText/SelIText
000002E2 601E bra +0x20 /* 00000302 */
label000002E4:
000002E4 486E FE36 pea.l [A6 - 0x1CA]
000002E8 486D F1B6 pea.l [A5 - 0xE4A]
000002EC 3F3C 080E move.w -[A7], 0x80E
000002F0 A9EB syscall Pack4/FP68K
000002F2 486D F1B6 pea.l [A5 - 0xE4A]
000002F6 486D DA06 pea.l [A5 - 0x25FA]
000002FA 3F3C 0810 move.w -[A7], 0x810
000002FE A9EB syscall Pack4/FP68K
00000300 6004 bra +0x6 /* 00000306 */
label00000302:
00000302 6000 FD62 bra -0x29C /* 00000066 */
label00000306:
00000306 486E FF56 pea.l [A6 - 0xAA]
0000030A A982 syscall CloseDialog
0000030C 4E5E unlink A6
0000030E 4E75 rts
00000310 4E56 FFFE link A6, -0x0002
00000314 48E7 1020 movem.l -[A7], D3,A2
00000318 246E 000C movea.l A2, [A6 + 0xC]
0000031C 0C52 0003 cmpi.w [A2], 0x3
00000320 662E bne +0x30 /* 00000350 */
00000322 246E 000C movea.l A2, [A6 + 0xC]
00000326 262A 0002 move.l D3, [A2 + 0x2]
0000032A C67C 00FF and.w D3, 0xFF
0000032E B67C 000D cmp.w D3, 0xD /* '\r' */
00000332 661C bne +0x1E /* 00000350 */
00000334 246E 0008 movea.l A2, [A6 + 0x8]
00000338 34BC 0001 move.w [A2], 0x1
0000033C 303C 0100 move.w D0, 0x100
label00000340:
00000340 4CDF 0408 movem.l D3,A2, [A7]+
00000344 4E5E unlink A6
00000346 205F movea.l A0, [A7]+
00000348 DEFC 000C add.w A7, 0xC
0000034C 3E80 move.w [A7], D0
0000034E 4ED0 jmp [A0]
label00000350:
00000350 4A6D EBEC tst.w [A5 - 0x1414]
00000354 660C bne +0xE /* 00000362 */
00000356 4A6D EBEE tst.w [A5 - 0x1412]
0000035A 6606 bne +0x8 /* 00000362 */
0000035C 4A6D EBF0 tst.w [A5 - 0x1410]
00000360 6704 beq +0x6 /* 00000366 */
label00000362:
00000362 7000 moveq.l D0, 0x00
00000364 60DA bra -0x24 /* 00000340 */
label00000366:
00000366 246E 000C movea.l A2, [A6 + 0xC]
0000036A 0C52 0003 cmpi.w [A2], 0x3
0000036E 6600 00A0 bne +0xA2 /* 00000410 */
00000372 246E 000C movea.l A2, [A6 + 0xC]
00000376 1D6A 0005 FFFF move.b [A6 - 0x1], [A2 + 0x5]
0000037C 162E FFFF move.b D3, [A6 - 0x1]
00000380 C67C 00FF and.w D3, 0xFF
00000384 5243 addq.w D3, 1
00000386 45ED EE32 lea.l A2, [A5 - 0x11CE]
0000038A 1432 3000 move.b D2, [A2 + D3.w]
0000038E 4882 ext.w D2
00000390 C47C 0001 and.w D2, 0x1
00000394 670E beq +0x10 /* 000003A4 */
00000396 162E FFFF move.b D3, [A6 - 0x1]
0000039A C67C 00FF and.w D3, 0xFF
0000039E D67C 0020 add.w D3, 0x20 /* ' ' */
000003A2 6008 bra +0xA /* 000003AC */
label000003A4:
000003A4 162E FFFF move.b D3, [A6 - 0x1]
000003A8 C67C 00FF and.w D3, 0xFF
label000003AC:
000003AC 1D43 FFFF move.b [A6 - 0x1], D3
000003B0 162E FFFF move.b D3, [A6 - 0x1]
000003B4 C67C 00FF and.w D3, 0xFF
000003B8 B67C 0068 cmp.w D3, 0x68 /* 'h' */
000003BC 6610 bne +0x12 /* 000003CE */
000003BE 246E 0008 movea.l A2, [A6 + 0x8]
000003C2 34BC 0004 move.w [A2], 0x4
000003C6 303C 0100 move.w D0, 0x100
000003CA 6000 FF74 bra -0x8A /* 00000340 */
label000003CE:
000003CE 162E FFFF move.b D3, [A6 - 0x1]
000003D2 C67C 00FF and.w D3, 0xFF
000003D6 B67C 0066 cmp.w D3, 0x66 /* 'f' */
000003DA 6610 bne +0x12 /* 000003EC */
000003DC 246E 0008 movea.l A2, [A6 + 0x8]
000003E0 34BC 0005 move.w [A2], 0x5
000003E4 303C 0100 move.w D0, 0x100
000003E8 6000 FF56 bra -0xA8 /* 00000340 */
label000003EC:
000003EC 162E FFFF move.b D3, [A6 - 0x1]
000003F0 C67C 00FF and.w D3, 0xFF
000003F4 B67C 006F cmp.w D3, 0x6F /* 'o' */
000003F8 6610 bne +0x12 /* 0000040A */
000003FA 246E 0008 movea.l A2, [A6 + 0x8]
000003FE 34BC 0007 move.w [A2], 0x7
00000402 303C 0100 move.w D0, 0x100
00000406 6000 FF38 bra -0xC6 /* 00000340 */
label0000040A:
0000040A 7000 moveq.l D0, 0x00
0000040C 6000 FF32 bra -0xCC /* 00000340 */
label00000410:
00000410 7000 moveq.l D0, 0x00
00000412 6000 FF2C bra -0xD2 /* 00000340 */